home *** CD-ROM | disk | FTP | other *** search
/ PC Users 8 / Cd Pc Users extra 8.iso / prog / inst / listx / setup.exe / OWNDRAW.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-11-17  |  8.2 KB  |  246 lines
  1. VERSION 5.00
  2. Object = "{9FE255D1-F32E-11D0-9E15-444553540000}#1.0#0"; "MLISTX.OCX"
  3. Begin VB.Form frmOwnDraw 
  4.    BorderStyle     =   0  'None
  5.    ClientHeight    =   5835
  6.    ClientLeft      =   2685
  7.    ClientTop       =   4155
  8.    ClientWidth     =   7830
  9.    ControlBox      =   0   'False
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MDIChild        =   -1  'True
  13.    MinButton       =   0   'False
  14.    PaletteMode     =   1  'UseZOrder
  15.    ScaleHeight     =   5835
  16.    ScaleWidth      =   7830
  17.    ShowInTaskbar   =   0   'False
  18.    Begin VB.PictureBox Picture4 
  19.       AutoSize        =   -1  'True
  20.       Height          =   405
  21.       Left            =   7290
  22.       Picture         =   "Owndraw.frx":0000
  23.       ScaleHeight     =   345
  24.       ScaleWidth      =   330
  25.       TabIndex        =   5
  26.       Top             =   5100
  27.       Visible         =   0   'False
  28.       Width           =   390
  29.    End
  30.    Begin VB.PictureBox Picture3 
  31.       AutoSize        =   -1  'True
  32.       Height          =   405
  33.       Left            =   7260
  34.       Picture         =   "Owndraw.frx":065E
  35.       ScaleHeight     =   23
  36.       ScaleMode       =   3  'Pixel
  37.       ScaleWidth      =   20
  38.       TabIndex        =   4
  39.       Top             =   4485
  40.       Visible         =   0   'False
  41.       Width           =   360
  42.    End
  43.    Begin VB.PictureBox Picture2 
  44.       AutoRedraw      =   -1  'True
  45.       AutoSize        =   -1  'True
  46.       BeginProperty Font 
  47.          Name            =   "Arial"
  48.          Size            =   12
  49.          Charset         =   0
  50.          Weight          =   700
  51.          Underline       =   0   'False
  52.          Italic          =   0   'False
  53.          Strikethrough   =   0   'False
  54.       EndProperty
  55.       Height          =   420
  56.       Left            =   7245
  57.       Picture         =   "Owndraw.frx":0C04
  58.       ScaleHeight     =   360
  59.       ScaleWidth      =   360
  60.       TabIndex        =   3
  61.       Top             =   3870
  62.       Visible         =   0   'False
  63.       Width           =   420
  64.    End
  65.    Begin VB.PictureBox Picture1 
  66.       AutoRedraw      =   -1  'True
  67.       AutoSize        =   -1  'True
  68.       BeginProperty Font 
  69.          Name            =   "MS Sans Serif"
  70.          Size            =   9.75
  71.          Charset         =   0
  72.          Weight          =   400
  73.          Underline       =   0   'False
  74.          Italic          =   0   'False
  75.          Strikethrough   =   0   'False
  76.       EndProperty
  77.       Height          =   540
  78.       Left            =   3615
  79.       Picture         =   "Owndraw.frx":0DA6
  80.       ScaleHeight     =   480
  81.       ScaleWidth      =   480
  82.       TabIndex        =   1
  83.       Top             =   360
  84.       Width           =   540
  85.    End
  86.    Begin MabryCtl.MList MList1 
  87.       Height          =   3705
  88.       Left            =   360
  89.       TabIndex        =   0
  90.       Top             =   360
  91.       Width           =   3000
  92.       _ExtentX        =   5292
  93.       _ExtentY        =   6535
  94.       BackColor       =   16777215
  95.       Caption         =   "Caption"
  96.       CaptionAlignment=   2
  97.       Object.TabStop         =   -1  'True
  98.       ThreedShadowColor=   -2147483627
  99.       MousePointer    =   -842150451
  100.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  101.          Name            =   "MS Sans Serif"
  102.          Size            =   8.25
  103.          Charset         =   0
  104.          Weight          =   400
  105.          Underline       =   0   'False
  106.          Italic          =   0   'False
  107.          Strikethrough   =   0   'False
  108.       EndProperty
  109.       BeginProperty Columns {23BAA6DE-05A6-11D1-9E15-0020AFD6A9D5} 
  110.          ColumnCount     =   3
  111.          BeginProperty Column0 {23BAA6E0-05A6-11D1-9E15-0020AFD6A9D5} 
  112.             Object.Width           =   32
  113.             MinWidth        =   0
  114.             MaxWidth        =   -1
  115.             UserResizeEnabled=   -1
  116.             Heading         =   "Col 1"
  117.             Object.Visible         =   -1
  118.             ColumnAlignment =   2
  119.             HeadingAlignment=   2
  120.          EndProperty
  121.          BeginProperty Column1 {23BAA6E0-05A6-11D1-9E15-0020AFD6A9D5} 
  122.             Object.Width           =   110
  123.             MinWidth        =   0
  124.             MaxWidth        =   -1
  125.             UserResizeEnabled=   -1
  126.             Heading         =   "Col 2"
  127.             Object.Visible         =   -1
  128.             ColumnAlignment =   0
  129.             HeadingAlignment=   0
  130.          EndProperty
  131.          BeginProperty Column2 {23BAA6E0-05A6-11D1-9E15-0020AFD6A9D5} 
  132.             Object.Width           =   0
  133.             MinWidth        =   0
  134.             MaxWidth        =   -1
  135.             UserResizeEnabled=   -1
  136.             Heading         =   "Col 3"
  137.             Object.Visible         =   -1
  138.             ColumnAlignment =   0
  139.             HeadingAlignment=   0
  140.          EndProperty
  141.       EndProperty
  142.    End
  143.    Begin VB.Label Label3 
  144.       Alignment       =   2  'Center
  145.       Caption         =   "Software"
  146.       BeginProperty Font 
  147.          Name            =   "MS Sans Serif"
  148.          Size            =   24
  149.          Charset         =   0
  150.          Weight          =   400
  151.          Underline       =   0   'False
  152.          Italic          =   0   'False
  153.          Strikethrough   =   0   'False
  154.       EndProperty
  155.       Height          =   540
  156.       Index           =   1
  157.       Left            =   4335
  158.       TabIndex        =   8
  159.       Top             =   1845
  160.       Width           =   3105
  161.    End
  162.    Begin VB.Label Label3 
  163.       Alignment       =   2  'Center
  164.       Caption         =   "Mabry"
  165.       BeginProperty Font 
  166.          Name            =   "MS Sans Serif"
  167.          Size            =   24
  168.          Charset         =   0
  169.          Weight          =   400
  170.          Underline       =   0   'False
  171.          Italic          =   0   'False
  172.          Strikethrough   =   0   'False
  173.       EndProperty
  174.       Height          =   540
  175.       Index           =   0
  176.       Left            =   4335
  177.       TabIndex        =   7
  178.       Top             =   1245
  179.       Width           =   3105
  180.    End
  181.    Begin VB.Label Label2 
  182.       Caption         =   $"Owndraw.frx":1028
  183.       BeginProperty Font 
  184.          Name            =   "MS Sans Serif"
  185.          Size            =   9.75
  186.          Charset         =   0
  187.          Weight          =   400
  188.          Underline       =   0   'False
  189.          Italic          =   0   'False
  190.          Strikethrough   =   0   'False
  191.       EndProperty
  192.       Height          =   1005
  193.       Left            =   360
  194.       TabIndex        =   6
  195.       Top             =   4335
  196.       Width           =   6600
  197.       WordWrap        =   -1  'True
  198.    End
  199.    Begin VB.Label Label1 
  200.       Caption         =   "COMpletely out of control!"
  201.       BeginProperty Font 
  202.          Name            =   "MS Sans Serif"
  203.          Size            =   13.5
  204.          Charset         =   0
  205.          Weight          =   400
  206.          Underline       =   0   'False
  207.          Italic          =   0   'False
  208.          Strikethrough   =   0   'False
  209.       EndProperty
  210.       Height          =   465
  211.       Left            =   4245
  212.       TabIndex        =   2
  213.       Top             =   390
  214.       Width           =   3465
  215.    End
  216. Attribute VB_Name = "frmOwnDraw"
  217. Attribute VB_GlobalNameSpace = False
  218. Attribute VB_Creatable = False
  219. Attribute VB_PredeclaredId = True
  220. Attribute VB_Exposed = False
  221. Option Explicit
  222. Private Sub Form_Load()
  223.    Dim i As Integer
  224.    Dim c As New CDraw
  225.    ' Get some bitmaps over to the CDraw class so they
  226.    ' can be used when drawing the list
  227.    Set c.m_Picture1 = Picture1
  228.    Set c.m_Picture2 = Picture2
  229.    Set c.m_Picture3 = Picture3
  230.    Set c.m_Picture4 = Picture4
  231.    ' Assign the CDraw object to each column
  232.    MList1.Columns(0).PaintObject = c
  233.    MList1.Columns(1).PaintObject = c
  234.    MList1.Columns(2).PaintObject = c
  235.    ' We're going to draw the caption too!
  236.    MList1.CaptionPaintObject = c
  237.    ' The list must be populated with something.  Since
  238.    ' all the rows are ownerdrawn by CDraw anyway the contents
  239.    ' of the list are irrelevant. But if the list was empty
  240.    ' the control wouldn't know that anything needed to be
  241.    ' drawn.
  242.    For i = 1 To 25
  243.       MList1.AddItem i
  244.    Next
  245. End Sub
  246.